var addr
var srh
var vzv
var if
var fn
var iat
var adrjm
var chk
var ifb
var oep
mov oep,eip
ask "Enter start iat"
cmp $RESULT,0
je quit
mov iat,$RESULT
gmi eip,CODEBASE

mov srh,$RESULT

loop:
find srh,#E9????F?FF#
cmp $RESULT,0
je quit
mov addr,$RESULT
mov adrjm,$RESULT+1
mov vzv,$RESULT+6
mov if,[adrjm]
add if,adrjm+4
mov chk,if
and chk,FF0000
cmp chk,390000 //      
ja ns
mov ifb,if
buf ifb
find iat,ifb
cmp $RESULT,0
je manual
wr:
mov fn,$RESULT
mov [addr],#FF25#
add addr,2
mov [addr],fn
mov srh,vzv
jmp loop
manual:
ask "enter manual"
cmp $RESULT,0
je ns
mov fn,$RESULT
jmp wr
ns:
mov srh,vzv
jmp loop
quit:
mov eip,oep
ret